home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / write.lha / WRITE / REXX / REXX.lha / SetRexxClipDemo.wrx < prev    next >
Encoding:
Text File  |  1994-11-15  |  1.1 KB  |  59 lines
  1. /*
  2.  * Script für WRITE V3.025 © 1993 Tim Teulings
  3.  * Dieses Script zeigt den Umgang mit dem SETREXXCLIP-Befehl
  4.  *
  5.  * Mit dem SETREXXCLIP-Befehl lasen ganzen Zeilen oder Buffer direkt
  6.  * ohne Umweg über den Parser, welche ja mit einer internen 256 Zeichen
  7.  * Begrenzung arbeitet, auslesen.
  8.  *
  9.  */
  10.  
  11. IF ~show('P',"WRITE")
  12. THEN DO
  13.  say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
  14.  exit 10
  15. END
  16.  
  17. ADDRESS "WRITE"
  18.  
  19. OPTIONS RESULTS
  20.  
  21. 'VERSIONCHECK 31090 "SetRexxClipDemo.wrx"'
  22. IF RC~=0 THEN DO
  23.   exit 10
  24. END
  25.  
  26. 'ASK "Wollen sie eine Zeile,oder\neinen Buffer auslesen ?" "_Zeile|_Buffer"'
  27.  
  28. TYP = Result
  29.  
  30. IF TYP = 0 THEN DO
  31.   'GetNumber "Welche Zeile möchten sie haben ?" 1'
  32.   VAL = Result
  33. END
  34. ELSE DO
  35.   'GetNumber "Welchen Buffer möchten sie haben ?" 0'
  36.   VAL = Result
  37. END
  38.  
  39. SETREXXCLIP Test TYP VAL
  40. IF RC=0 THEN DO
  41.   String = getclip(Test)
  42.   say String
  43. END
  44. ELSE DO
  45. 'MESSAGEOK "SETREXXCLIP gab einen Fehler zurück !"'
  46. END
  47.  
  48. 'ASK "Wollen sie den ganzen\nText auslesen ?" "_Ja|_NEIN !"'
  49. IF Result = 0 THEN DO
  50.   'GETVAR "_Length"'
  51.   Length = Result
  52.  
  53.   DO x = 1 TO Length
  54.     SETREXXCLIP Zeile 0 x
  55.     String = getclip(Zeile)
  56.     say String
  57.   END
  58. END
  59.